home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aax.d64 / planner (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  170 lines
  1. 5 REM:TRIP PLANNE BY DASPF REVISED 3-87
  2. 10 POKE53280,0:POKE53281,0:PRINT"[147]"
  3. 20 PRINT"FAMILY TRIP PLANNER"
  4. 23 PRINT"A [151]DASPF PROGRAM"
  5. 25 PRINT"HIT [129]ANY KEY AND LET'S PLAN YOUR FAMILY'S VACATION"
  6. 27 GETQ$:IFQ$=""THEN27
  7. 30 PF$="PLANE FARE":CC$="CAR COST":LD$="LODGING":FD$="FOOD":MC$="MISC"
  8. 32 PO$="PRINT OUT":TR$="TRIP INFO"
  9. 35 PRINT"[147]":PRINT"TRIP  MENU"
  10. 40 PRINT""1"  "PF$
  11. 42 PRINT""2"  "CC$
  12. 43 PRINT""3"  "LD$
  13. 44 PRINT""4"  "FD$
  14. 45 PRINT""5"  "MC$
  15. 46 PRINT""6"  "PO$
  16. 49 PRINT""7"  "TR$
  17. 50 PRINT"[149]TYPE NUMBER OF YOUR CHOICE"
  18. 60 GETZ$:IFZ$=""THEN60
  19. 61 IFZ$="1"THEN100
  20. 62 IFZ$="2"THEN200
  21. 63 IFZ$="3"THEN300
  22. 64 IFZ$="4"THEN400
  23. 65 IFZ$="5"THEN500
  24. 66 IFZ$="6"THEN600
  25. 67 IFZ$="7"THEN700
  26. 69 GOTO60
  27. 100 PRINT"[147]"PF$
  28. 105 INPUT"DO YOU HAVE A TOTAL PACKAGE PLANE FARE    COST FOR YOUR FAMILY";A$
  29. 107 IFA$="N"THEN120
  30. 108 IFA$="Y"THEN115
  31. 109 GOTO105
  32. 115 INPUT"WHAT IS THE [149]TOTAL PACKAGE COST";PF:GOTO130
  33. 120 INPUT"HOW MANY ARE GOING ON THIS TRIP";HM
  34. 122 CS(B)=0:SS=0
  35. 125 B=0:FORA=1TOHM:B=B+1:PRINT"WHAT IS THE COST OF FARE # "B:INPUTCS(B)
  36. 126 SS=SS+CS(B):NEXT
  37. 127 PF=SS
  38. 130 INPUT"[149]WANT TO MAKE A CHANGE";MK$
  39. 140 IFMK$="Y"THEN100
  40. 145 IFMK$="N"THEN160
  41. 150 GOTO130
  42. 160 PRINT"TOTAL PLANE FARE = $"INT(PF)
  43. 165 PRINT"[149]TYPE ANY KEY FOR MENU"
  44. 170 GETQ$:IFQ$=""THEN170
  45. 175 GOTO35
  46. 199 GOTO199
  47. 200 PRINT"[147]"CC$:CC=0
  48. 210 INPUT"[149]RENT A CAR";RC$
  49. 220 IFRC$="Y"THEN250
  50. 222 IFRC$="N"THEN265
  51. 224 GOTO210
  52. 250 PRINT"[147]MOST RENT A CARS ARE MILAGE FREE"
  53. 251 PRINT"IF THERE IS A MILAGE CHARGE ON YOUR CAR"
  54. 252 PRINT"ESTIMATE THE COST AND INCLUDE IT IN          THE MISC. SECTION"
  55. 254 INPUT"NUMBER OF RENT DAYS";RD
  56. 255 INPUT"COST OF CAR PER DAY";RE
  57. 257 INPUT"ESTIMATED GAS COST PER DAY";RF
  58. 260 CC=(RD*RE)+(RD*RF)
  59. 262 PRINT"TOTAL ESTIMATED CAR COST = $ [146]"INT(CC):GOTO295
  60. 265 INPUT"[147]MILES PER GALLON YOUR CAR GETS";RG:IFRG=0THEN200
  61. 267 INPUT"ESTIMATED MILES YOU WILL DRIVE";RH
  62. 269 INPUT"ESTIMATED COST PER GALLON";RI
  63. 270 INPUT"ANY MISC. CAR COST";RJ
  64. 272 CC=((RH/RG)*RI)+RJ
  65. 280 GOTO262
  66. 295 PRINT"[149]TYPE ANY KEY FOR MENU"
  67. 296 GETQ$:IFQ$=""THEN296
  68. 297 GOTO35
  69. 299 GOTO299
  70. 300 PRINT"[147]"LD$
  71. 303 PRINT"COST OF LODGING IN MOTELS AND HOTELS"
  72. 304 PRINT"IF DIFFERENT EVERYWHERE, SO YOU MUST"
  73. 305 PRINT"ESTIMATE HOW MUCH EACH NIGHT YOU ARE"
  74. 306 PRINT"WILLING TO SPEND"
  75. 310 INPUT"[149]ESTIMATED COST PER NIGHT";DA
  76. 315 INPUT"HOW MANY NIGHTS";DB
  77. 320 LD=DB*DA:PRINT"TOTAL ESTIMATED LODGING COST = $[146]"INT(LD)
  78. 330 PRINT"TYPE ANY KEY FOR MENU"
  79. 335 GETQ$:IFQ$=""THEN335
  80. 337 GOTO35
  81. 399 GOTO399
  82. 400 PRINT"[147]"FD$
  83. 402 PRINT"[149]FOOD ON A TRIP IS THE HARDEST"
  84. 404 PRINT"TO ESTIMATE. THIS PROGRAM WILL ASK"
  85. 406 PRINT"THE TOTAL COST OF EACH MEAL PER DAY"
  86. 408 PRINT"FOR EXAMPLE: TOTAL COST FOR LUNCH WILL"
  87. 410 PRINT"BE $10. ON LONG TRIPS IT IS CHEAPER"
  88. 420 PRINT"TO PACK LUNCH MEATS AND BREAD THAN"
  89. 430 PRINT"STOP AND BUY YOUR LUNCH EVERYDAY"
  90. 432 INPUT"TOTAL NUMBER OF DAYS";WA
  91. 434 INPUT"ESTIMATED COST OF BREAKFAST FOR 1 DAY";WB
  92. 436 INPUT"ESTIMATED COST OF LUNCH FOR 1 DAY";WC
  93. 438 INPUT"ESTIMATED COST OF DINNER FOR 1 DAY";WD
  94. 440 WE=(WB+WC+WD):FD=WE*WA
  95. 450 PRINT"TOTAL ESTIMATED COST FOR ONE DAY = $[146]"WE
  96. 452 PRINT"TOTAL ESTIMATED COST FOR TRIP = $[146]"FD
  97. 460 PRINT"[151]TYPE ANY KEY FOR MENU"
  98. 470 GETQ$:IFQ$=""THEN470
  99. 480 GOTO35
  100. 499 GOTO499
  101. 500 PRINT"[147]"MC$:WW=0
  102. 502 PRINT"[149]TYPE IN ANY MISC. ITEMS FIRST"
  103. 504 PRINT"THEN THE ESTIMATED COST NEXT"
  104. 506 PRINT"IMPORTANT[146]: TYPE DONE[146][149] WHEN FINISHED":H=0
  105. 510 FORH=1TO20:INPUT"ITEM";G$(H):IFG$(H)="DONE"THEN530
  106. 512 INPUT"COST";G(H)
  107. 514 PRINT"(TYPE 'DONE' WHEN FINISH)[146]"
  108. 516 IFG$(H)="DONE"THEN530
  109. 522 WW=WW+G(H):NEXT
  110. 530 FORX=1TOH
  111. 532 PRINTG$(X);G(X),
  112. 534 NEXT
  113. 536 PRINT
  114. 540 PRINT"TOTAL ESTIMATED COST OF ALL MISC ITEMS"
  115. 542 PRINT" = $"WW
  116. 550 PRINT"[151]TYPE ANY KEY FOR MENU"
  117. 560 GETQ$:IFQ$=""THEN560
  118. 570 GOTO35
  119. 599 GOTO599
  120. 600 PRINT"[147]      PRINT OUT"
  121. 602 PRINT"TYPE S[146] TO PRINT TO SCREEN"
  122. 604 PRINT"TYPE P[146] TO PRINT TO PRINTER"
  123. 608 GETA$:IFA$=""THEN608
  124. 610 IFA$="S"THEN615
  125. 612 IFA$="P"THEN660
  126. 614 GOTO608
  127. 615 PRINT"[147]"
  128. 617 PRINT"TRIP FOR THE "BE$" FAMILY"
  129. 619 PRINT"FROM "BD$ " TO "BB$
  130. 621 PRINT"LEAVING "BC$
  131. 623 PRINT"THIS REPORT WAS MADE UP ON "BF$
  132. 630 PRINT"TOTAL AIR FARE = $ "PF
  133. 635 PRINT"ESTIMATED CAR COST = $ "CC
  134. 637 PRINT"ESTIMATED LODGING = $ "LD
  135. 639 PRINT"ESTIMATED FOOD COST = $ "FD
  136. 641 PRINT"ESTIMATED MISC. COST = $ "WW
  137. 645 AQ=PF+CC+LD+FD+WW
  138. 650 PRINT"TOTAL ESTIMATED TRIP COST = "
  139. 655 PRINT"        $ "AQ
  140. 657 GOTO692
  141. 660 OPEN4,4
  142. 662 PRINT#4,"TRIP PLANNER FOR THE "BE$ " FAMILY"
  143. 664 PRINT#4:PRINT#4,"FROM "BD$" TO "BB$
  144. 666 PRINT#4:PRINT#4,"THE "BE$"'S WILL BE LEAVING "BC$
  145. 668 PRINT#4:PRINT#4,"THIS REPORT WAS MADE AND PRINTED ON "BF$:PRINT#4:PRINT#4
  146. 670 PRINT#4,"TOTAL COST OF AIR FARE = $"PF:PRINT#4
  147. 672 PRINT#4,"ESTIMATED CAR COST  = $"CC:PRINT#4
  148. 674 PRINT#4,"ESTIMATED COST OF LODGING FOR "DB" DAYS = $"LD:PRINT#4
  149. 676 PRINT#4,"ESTIMATED FOOD COST PER DAY = $"WB+WC+WD:PRINT#4
  150. 678 PRINT#4,"ESTIMATED FOOD COST FOR COMPLETE TRIP = $"FD:PRINT#4
  151. 680 PRINT#4,"MISC. COST ="
  152. 682 FORWQ=1TOH:PRINT#4,G$(WQ);G(WQ),:NEXT
  153. 684 PRINT#4,"TOTAL MISC COST = $"WW:PRINT#4
  154. 688 AQ=PF+CC+LD+FD+WW
  155. 690 PRINT#4,"TOTAL ESTIMATED COST OF ENTIRE TRIP = $"AQ:CLOSE4
  156. 692 INPUT"ANOTHER PRINT OUT";FX$
  157. 694 IFFX$="Y"THEN600
  158. 696 GOTO35
  159. 699 GOTO699
  160. 700 PRINT"[147][151]JUST TYPE IN YOUR ANSWERS AND HIT RETURN"
  161. 710 INPUT"WHERE ARE YOU GOING";BB$
  162. 720 INPUT"WHEN ARE YOU GOING";BC$
  163. 730 INPUT"WHAT CITY ARE YOU LEAVING FROM";BD$
  164. 740 INPUT"WHAT IS THE FAMILY NAME";BE$
  165. 750 INPUT"WHAT IS TODAY'S DATE";BF$
  166. 760 PRINT"[149]THANK YOU FOR ANSWERING THESE QUESTIONS"
  167. 770 PRINT"NOW TYPE ANY KET TO RETURN TO THE MENU"
  168. 780 GETQ$:IFQ$=""THEN780
  169. 790 GOTO35
  170.